home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / bbs_lord / life118d.zip / LIFE.ZIP / WEAPTXT.DAT < prev   
Text File  |  1996-03-16  |  17KB  |  559 lines

  1. @#Weapons
  2. `<SetOptions>=[B_S_L_R]
  3. `<Clear>
  4. `0                           WOLF!'s Weapons
  5. `2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  6. `2  You come across a Dark smokey little shop at the edge
  7. `2of Town.  Upon entering the establishment you see a greedy
  8. `2looking little man...They call him WOLF! ...and the buyer better
  9. `2beware...His bite is worse than his bark!
  10.  
  11.  
  12. `2     (`5B`2)uy a weapon
  13. `2     (`5S`2)ell your weapon
  14. `2     (`5L`2)ist Weapons
  15. `2     (`4R`2)eturn to the big city
  16. @#WeaponsOptions?
  17. `<SetMenu>=[Weapons]
  18. @#WeaponsOptions_
  19. `<NewLine>
  20. `<NewLine>
  21. `<if>=[(FGambled),(theuser),1,@#Abort]
  22. `3ohhh yer clever aren't you
  23. `4NOW YOU`VE REALLY DONE IT!!!!!
  24. `5Ahh what a blessed new day!
  25. `@YOU CHEATER!!!!!!!!!!! `4:(
  26. `<SetVal>=[(FHadDrink),(TheUser),0]
  27. `<SetVal>=[(FHadBeer),(TheUser),0]
  28. `<SetVal>=[(FWashroom),(TheUser),0]
  29. `<SetVal>=[(FTalked),(TheUser),0]
  30. `<SetVal>=[(FHadSpec),(TheUser),0]
  31. `<SetVal>=[(FHadVegg),(TheUser),0]
  32. `<SetVal>=[(FDeedDone),(TheUser),0]
  33. `<SetVal>=[(FJoust),(TheUser),0]
  34. `<SetVal>=[(FVisLan),(TheUser),0]
  35. `<SetVal>=[(FVisLisa),(TheUser),0]
  36. `<SetVal>=[(FTrained),(TheUser),0]
  37. `<SetVal>=[(FGambled),(TheUser),1]
  38. `2
  39. `2
  40. `2 It has been done master...
  41. `<More>
  42. @#WeaponsOptionsS
  43. `<NewLine>
  44. `<if>=[(LWeaponNum),(TheUser),0,@#YouNoHave]
  45. `@Please Note:`3 You will be given the equivalent value of the
  46. `3  item you wish you sell in Lord Life funds...if you wish
  47. `3  to recieve the money in Lord Gold...then sell your weapon in
  48. `3  lord...you can still buy one of these weapons once you
  49. `3  have sold your old one...
  50. `2
  51. `<RetOff>
  52. `2  Are you sure you wish to sell your weapon? (Y/N)  `0[`5Y`0]:
  53. `<Space>
  54. `<GetAns>=[(TempStr0),YN,(TheUser)]
  55. `<PrintVal>=[(TempStr0),(TheUser)]
  56. `<NewLine>
  57. `<RetOn>
  58. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  59. `<NewLine>
  60. `<SetVal>=[(LordWeapon),(TheUser),Nothing!]
  61. `<NewLine>
  62. `<if>=[(LWeaponNum),(TheUser),1,@#W1]
  63. `<if>=[(LWeaponNum),(TheUser),2,@#W2]
  64. `<if>=[(LWeaponNum),(TheUser),3,@#W3]
  65. `<if>=[(LWeaponNum),(TheUser),4,@#W4]
  66. `<if>=[(LWeaponNum),(TheUser),5,@#W5]
  67. `<if>=[(LWeaponNum),(TheUser),6,@#W6]
  68. `<if>=[(LWeaponNum),(TheUser),7,@#W7]
  69. `<if>=[(LWeaponNum),(TheUser),8,@#W8]
  70. `<if>=[(LWeaponNum),(TheUser),9,@#W9]
  71. `<if>=[(LWeaponNum),(TheUser),10,@#W10]
  72. `<if>=[(LWeaponNum),(TheUser),11,@#W11]
  73. `<if>=[(LWeaponNum),(TheUser),12,@#W12]
  74. `<if>=[(LWeaponNum),(TheUser),13,@#W13]
  75. `<if>=[(LWeaponNum),(TheUser),14,@#W14]
  76. `<if>=[(LWeaponNum),(TheUser),15,@#W15]
  77. `<NewLine>
  78. `2Aww fiddlesticks...it wont go away...hmm...sorry...
  79. `<More>
  80. @#W1
  81. `<AddVal>=[(FLifeGold),(TheUser),2000]
  82. `<AddVal>=[(LStrength),(TheUser),-5]
  83. `<SetVal>=[(LWeaponNum),(TheUser),0]
  84. `0Done!
  85. `<More>
  86. @#W2
  87. `<AddVal>=[(FLifeGold),(TheUser),10000]
  88. `<AddVal>=[(LStrength),(TheUser),-10]
  89. `<SetVal>=[(LWeaponNum),(TheUser),0]
  90. `0Done!
  91. `<More>
  92. @#W3
  93. `<AddVal>=[(FLifeGold),(TheUser),30000]
  94. `<AddVal>=[(LStrength),(TheUser),-20]
  95. `<SetVal>=[(LWeaponNum),(TheUser),0]
  96. `0Done!
  97. `<More>
  98. @#W4
  99. `<AddVal>=[(FLifeGold),(TheUser),100000]
  100. `<AddVal>=[(LStrength),(TheUser),-30]
  101. `<SetVal>=[(LWeaponNum),(TheUser),0]
  102. `0Done!
  103. `<More>
  104. @#W5
  105. `<AddVal>=[(FLifeGold),(TheUser),300000]
  106. `<AddVal>=[(LStrength),(TheUser),-40]
  107. `<SetVal>=[(LWeaponNum),(TheUser),0]
  108. `0Done!
  109. `<More>
  110. @#W6
  111. `<AddVal>=[(FLifeGold),(TheUser),1000000]
  112. `<AddVal>=[(LStrength),(TheUser),-60]
  113. `<SetVal>=[(LWeaponNum),(TheUser),0]
  114. `0Done!
  115. `<More>
  116. @#W7
  117. `<AddVal>=[(FLifeGold),(TheUser),1500000]
  118. `<AddVal>=[(LStrength),(TheUser),-80]
  119. `<SetVal>=[(LWeaponNum),(TheUser),0]
  120. `0Done!
  121. `<More>
  122. @#W8
  123. `<AddVal>=[(FLifeGold),(TheUser),2000000]
  124. `<AddVal>=[(LStrength),(TheUser),-120]
  125. `<SetVal>=[(LWeaponNum),(TheUser),0]
  126. `0Done!
  127. `<More>
  128. @#W9
  129. `<AddVal>=[(FLifeGold),(TheUser),4000000]
  130. `<AddVal>=[(LStrength),(TheUser),-180]
  131. `<SetVal>=[(LWeaponNum),(TheUser),0]
  132. `0Done!
  133. `<More>
  134. @#W10
  135. `<AddVal>=[(FLifeGold),(TheUser),10000000]
  136. `<AddVal>=[(LStrength),(TheUser),-250]
  137. `<SetVal>=[(LWeaponNum),(TheUser),0]
  138. `0Done!
  139. `<More>
  140. @#W11
  141. `<AddVal>=[(FLifeGold),(TheUser),40000000]
  142. `<AddVal>=[(LStrength),(TheUser),-350]
  143. `<SetVal>=[(LWeaponNum),(TheUser),0]
  144. `0Done!
  145. `<More>
  146. @#W12
  147. `<AddVal>=[(FLifeGold),(TheUser),100000000]
  148. `<AddVal>=[(LStrength),(TheUser),-500]
  149. `<SetVal>=[(LWeaponNum),(TheUser),0]
  150. `0Done!
  151. `<More>
  152. @#W13
  153. `<AddVal>=[(FLifeGold),(TheUser),400000000]
  154. `<AddVal>=[(LStrength),(TheUser),-800]
  155. `<SetVal>=[(LWeaponNum),(TheUser),0]
  156. `0Done!
  157. `<More>
  158. @#W14
  159. `<AddVal>=[(FLifeGold),(TheUser),1000000000]
  160. `<AddVal>=[(LStrength),(TheUser),-1200]
  161. `<SetVal>=[(LWeaponNum),(TheUser),0]
  162. `0Done!
  163. `<More>
  164. @#W15
  165. `<AddVal>=[(FLifeGold),(TheUser),4000000000]
  166. `<AddVal>=[(LStrength),(TheUser),-1800]
  167. `<SetVal>=[(LWeaponNum),(TheUser),0]
  168. `0Done!
  169. `<More>
  170. @#WeaponsOptionsB
  171. `<if>=[(LWeaponNum),(TheUser),0,@#BuyWep]
  172. `<NewLine>
  173. `2  You `4idiot`2...imbecile...`!You must sell your old weapon first!
  174. `<More>
  175. @#BuyWep
  176. `<NewLine>
  177. `. `% The Life of the Red Dragon - `2Weapon List
  178. `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  179.   `0Weapon                            Price
  180.   `21. Scimitar...............................`54000
  181.  `2 2. Privateer's Blade....................`520,000
  182. `2  3. Qas Staff............................`560,000
  183. `2  4. Epee................................`5200,000
  184. `2  5. Magical Wand........................`5600,000
  185. `2  6. Crest Buster......................`52,000,000
  186. `2  7. Golden Knife......................`53,000,000
  187. `2  8. Falcon's Revenge..................`54,000,000
  188. `2  9. Turgon's Weakness.................`58,000,000
  189. `2 10. Acid Sword.......................`520,000,000
  190. `2 11. Wolf's Whip......................`580,000,000
  191. `2 12. Crismon's Crossbow..............`5200,000,000
  192. `2 13. Trisnic's Trident...............`5800,000,000
  193. `2 14. Emporer's Embalmer............`52,000,000,000
  194. `2 15  Mandragoran's Blade...........`58,000,000,000
  195.  
  196. `2  Intense eyes view you from across the counter...
  197. `<RetOff>
  198. `3You have: [
  199. `<PrintVal>=[(FLifeGold),(TheUser)]
  200. `3] life dollars on hand.
  201. `<NewLine>
  202. `<RetOff>
  203. `9You start to feel warm...Pick one quick! (1-15) >
  204. `<LordIn>=[(TempStr0),70,100,2,(TheUser)]
  205. `<NewLine>
  206. `<RetOn>
  207. `<if>=[(TempStr0),(TheUser),1,@#Scitimar]
  208. `<if>=[(TempStr0),(TheUser),2,@#PrivateerBlade]
  209. `<if>=[(TempStr0),(TheUser),3,@#QasStaff]
  210. `<if>=[(TempStr0),(TheUser),4,@#Epee]
  211. `<if>=[(TempStr0),(TheUser),5,@#MagicalWand]
  212. `<if>=[(TempStr0),(TheUser),6,@#CrestBuster]
  213. `<if>=[(TempStr0),(TheUser),7,@#GoldenKnife]
  214. `<if>=[(TempStr0),(TheUser),8,@#FalconRevenge]
  215. `<if>=[(TempStr0),(TheUser),9,@#TurgonWeakness]
  216. `<if>=[(TempStr0),(TheUser),10,@#AcidSword]
  217. `<if>=[(TempStr0),(TheUser),11,@#WolfWhip]
  218. `<if>=[(TempStr0),(TheUser),12,@#CrismonCrossbow]
  219. `<if>=[(TempStr0),(TheUser),13,@#TrisnicTrident]
  220. `<if>=[(TempStr0),(TheUser),14,@#EmporerEmbalmer]
  221. `<if>=[(TempStr0),(TheUser),15,@#MandragoranBlade]
  222. `<NewLine>
  223. `5  Next time try to make a `@VALID`5 selection for a `2CHANGE!!!
  224. `<More>
  225. @#Scitimar
  226. `<RetOn>
  227. `2  You wish my prized Schitimar do you? (Y/N)  `0[`5Y`0]:
  228. `<Space>
  229. `<GetAns>=[(TempStr0),YN,(TheUser)]
  230. `<PrintVal>=[(TempStr0),(TheUser)]
  231. `<NewLine>
  232. `<RetOn>
  233. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  234. `<ifless>=[(FLifeGold),(TheUser),4000,@#NSF]
  235. `<AddVal>=[(FLifeGold),(TheUser),-4000]
  236. `<AddVal>=[(LStrength),(TheUser),5]
  237. `<SetVal>=[(LordWeapon),(TheUser),Scitimar]
  238. `<SetVal>=[(LWeaponNum),(TheUser),1]
  239. `0Done!
  240. `<More>
  241. @#PrivateerBlade
  242. `<RetOff>
  243. `2  You wish the Privateer Blade do you (Y/N)?  `0[`5Y`0]:
  244. `<Space>
  245. `<GetAns>=[(TempStr0),YN,(TheUser)]
  246. `<PrintVal>=[(TempStr0),(TheUser)]
  247. `<NewLine>
  248. `<RetOn>
  249. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  250. `<ifless>=[(FLifeGold),(TheUser),20000,@#NSF]
  251. `<AddVal>=[(FLifeGold),(TheUser),-20000]
  252. `<AddVal>=[(LStrength),(TheUser),10]
  253. `<SetVal>=[(LordWeapon),(TheUser),Privateer Blade]
  254. `<SetVal>=[(LWeaponNum),(TheUser),2]
  255. `0Done!
  256. `<More>
  257. @#QasStaff
  258. `<if>=[(Level),(TheUser),1,@#LevelLock]
  259. `<RetOff>
  260. `2  You want the Quas Staff do you (Y/N)?  `0[`5Y`0]:
  261. `<Space>
  262. `<GetAns>=[(TempStr0),YN,(TheUser)]
  263. `<PrintVal>=[(TempStr0),(TheUser)]
  264. `<NewLine>
  265. `<RetOn>
  266. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  267. `<ifless>=[(FLifeGold),(TheUser),60000,@#NSF]
  268. `<AddVal>=[(FLifeGold),(TheUser),-60000]
  269. `<AddVal>=[(LStrength),(TheUser),20]
  270. `<SetVal>=[(LordWeapon),(TheUser),Quas Staff]
  271. `<SetVal>=[(LWeaponNum),(TheUser),3]
  272. `0Done!
  273. `<More>
  274. @#Epee
  275. `<if>=[(Level),(TheUser),1,@#LevelLock]
  276. `<if>=[(Level),(TheUser),2,@#LevelLock]
  277. `<RetOff>
  278. `2  You want Epee do you (Y/N)?  `0[`5Y`0]:
  279. `<Space>
  280. `<GetAns>=[(TempStr0),YN,(TheUser)]
  281. `<PrintVal>=[(TempStr0),(TheUser)]
  282. `<NewLine>
  283. `<RetOn>
  284. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  285. `<ifless>=[(FLifeGold),(TheUser),200000,@#NSF]
  286. `<AddVal>=[(FLifeGold),(TheUser),-200000]
  287. `<AddVal>=[(LStrength),(TheUser),30]
  288. `<SetVal>=[(LordWeapon),(TheUser),Epee]
  289. `<SetVal>=[(LWeaponNum),(TheUser),4]
  290. `0Done!
  291. `<More>
  292. @#MagicalWand
  293. `<if>=[(Level),(TheUser),1,@#LevelLock]
  294. `<ifless>=[(Level),(TheUser),4,@#LevelLock]
  295. `<RetOff>
  296. `2  You want a Magical Wand do you (Y/N)?  `0[`5Y`0]:
  297. `<Space>
  298. `<GetAns>=[(TempStr0),YN,(TheUser)]
  299. `<PrintVal>=[(TempStr0),(TheUser)]
  300. `<NewLine>
  301. `<RetOn>
  302. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  303. `<ifless>=[(FLifeGold),(TheUser),600000,@#NSF]
  304. `<AddVal>=[(FLifeGold),(TheUser),-600000]
  305. `<AddVal>=[(LStrength),(TheUser),40]
  306. `<SetVal>=[(LordWeapon),(TheUser),Magical Wand]
  307. `<SetVal>=[(LWeaponNum),(TheUser),5]
  308. `0Done!
  309. `<More>
  310. @#CrestBuster
  311. `<if>=[(Level),(TheUser),1,@#LevelLock]
  312. `<ifless>=[(Level),(TheUser),4,@#LevelLock]
  313. `<RetOff>
  314. `2  You want a Crest Buster do you (Y/N)?  `0[`5Y`0]:
  315. `<Space>
  316. `<GetAns>=[(TempStr0),YN,(TheUser)]
  317. `<PrintVal>=[(TempStr0),(TheUser)]
  318. `<NewLine>
  319. `<RetOn>
  320. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  321. `<ifless>=[(FLifeGold),(TheUser),2000000,@#NSF]
  322. `<AddVal>=[(FLifeGold),(TheUser),-2000000]
  323. `<AddVal>=[(LStrength),(TheUser),60]
  324. `<SetVal>=[(LordWeapon),(TheUser),Crest Buster]
  325. `<SetVal>=[(LWeaponNum),(TheUser),6]
  326. `0Done!
  327. `<More>
  328. @#GoldenKnife
  329. `<if>=[(Level),(TheUser),1,@#LevelLock]
  330. `<ifless>=[(Level),(TheUser),5,@#LevelLock]
  331. `<RetOff>
  332. `2  You want a Golden Knife do you (Y/N)?  `0[`5Y`0]:
  333. `<Space>
  334. `<GetAns>=[(TempStr0),YN,(TheUser)]
  335. `<PrintVal>=[(TempStr0),(TheUser)]
  336. `<NewLine>
  337. `<RetOn>
  338. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  339. `<ifless>=[(FLifeGold),(TheUser),3000000,@#NSF]
  340. `<AddVal>=[(FLifeGold),(TheUser),-3000000]
  341. `<AddVal>=[(LStrength),(TheUser),80]
  342. `<SetVal>=[(LordWeapon),(TheUser),Golden Knife]
  343. `<SetVal>=[(LWeaponNum),(TheUser),7]
  344. `0Done!
  345. `<More>
  346. @#FalconRevenge
  347. `<if>=[(Level),(TheUser),1,@#LevelLock]
  348. `<ifless>=[(Level),(TheUser),5,@#LevelLock]
  349. `<RetOff>
  350. `2  You want the Falcon's revenge do you (Y/N)?  `0[`5Y`0]:
  351. `<Space>
  352. `<GetAns>=[(TempStr0),YN,(TheUser)]
  353. `<PrintVal>=[(TempStr0),(TheUser)]
  354. `<NewLine>
  355. `<RetOn>
  356. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  357. `<ifless>=[(FLifeGold),(TheUser),4000000,@#NSF]
  358. `<AddVal>=[(FLifeGold),(TheUser),-4000000]
  359. `<AddVal>=[(LStrength),(TheUser),120]
  360. `<SetVal>=[(LordWeapon),(TheUser),Falcon Revenge]
  361. `<SetVal>=[(LWeaponNum),(TheUser),8]
  362. `0Done!
  363. `<More>
  364. @#TurgonWeakness
  365. `<if>=[(Level),(TheUser),1,@#LevelLock]
  366. `<ifless>=[(Level),(TheUser),6,@#LevelLock]
  367. `<RetOff>
  368. `2  Turgon's Weakness (Y/N)?  `0[`5Y`0]:
  369. `<Space>
  370. `<GetAns>=[(TempStr0),YN,(TheUser)]
  371. `<PrintVal>=[(TempStr0),(TheUser)]
  372. `<NewLine>
  373. `<RetOn>
  374. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  375. `<ifless>=[(FLifeGold),(TheUser),8000000,@#NSF]
  376. `<AddVal>=[(FLifeGold),(TheUser),-8000000]
  377. `<AddVal>=[(LStrength),(TheUser),180]
  378. `<SetVal>=[(LordWeapon),(TheUser),Turgon Weakness]
  379. `<SetVal>=[(LWeaponNum),(TheUser),9]
  380. `0Done!
  381. `<More>
  382. @#AcidSword
  383. `<if>=[(Level),(TheUser),1,@#LevelLock]
  384. `<ifless>=[(Level),(TheUser),6,@#LevelLock]
  385. `<RetOff>
  386. `2  You want the Acid Sword do you (Y/N)?  `0[`5Y`0]:
  387. `<Space>
  388. `<GetAns>=[(TempStr0),YN,(TheUser)]
  389. `<PrintVal>=[(TempStr0),(TheUser)]
  390. `<NewLine>
  391. `<RetOn>
  392. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  393. `<ifless>=[(FLifeGold),(TheUser),20000000,@#NSF]
  394. `<AddVal>=[(FLifeGold),(TheUser),-20000000]
  395. `<AddVal>=[(LStrength),(TheUser),250]
  396. `<SetVal>=[(LordWeapon),(TheUser),Acid Sword]
  397. `<SetVal>=[(LWeaponNum),(TheUser),10]
  398. `0Done!
  399. `<More>
  400. @#WolfWhip
  401. `<if>=[(Level),(TheUser),1,@#LevelLock]
  402. `<ifless>=[(Level),(TheUser),7,@#LevelLock]
  403. `<RetOff>
  404. `2  You want Wolf's Whip do you (Y/N)?  `0[`5Y`0]:
  405. `<Space>
  406. `<GetAns>=[(TempStr0),YN,(TheUser)]
  407. `<PrintVal>=[(TempStr0),(TheUser)]
  408. `<NewLine>
  409. `<RetOn>
  410. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  411. `<ifless>=[(FLifeGold),(TheUser),80000000,@#NSF]
  412. `<AddVal>=[(FLifeGold),(TheUser),-80000000]
  413. `<AddVal>=[(LStrength),(TheUser),350]
  414. `<SetVal>=[(LordWeapon),(TheUser),Wolf Whip]
  415. `<SetVal>=[(LWeaponNum),(TheUser),11]
  416. `0Done!
  417. `<More>
  418. @#CrismonCrossbow
  419. `<if>=[(Level),(TheUser),1,@#LevelLock]
  420. `<ifless>=[(Level),(TheUser),7,@#LevelLock]
  421. `<RetOff>
  422. `2  You want Crismon's Crossbow (Y/N)?  `0[`5Y`0]:
  423. `<Space>
  424. `<GetAns>=[(TempStr0),YN,(TheUser)]
  425. `<PrintVal>=[(TempStr0),(TheUser)]
  426. `<NewLine>
  427. `<RetOn>
  428. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  429. `<ifless>=[(FLifeGold),(TheUser),200000000,@#NSF]
  430. `<AddVal>=[(FLifeGold),(TheUser),-200000000]
  431. `<AddVal>=[(LStrength),(TheUser),500]
  432. `<SetVal>=[(LordWeapon),(TheUser),Crismon Crosbow]
  433. `<SetVal>=[(LWeaponNum),(TheUser),12]
  434. `0Done!
  435. `<More>
  436. @#TrisnicTrident
  437. `<if>=[(Level),(TheUser),1,@#LevelLock]
  438. `<ifless>=[(Level),(TheUser),8,@#LevelLock]
  439. `<RetOff>
  440. `2  You want Trisnic's Trident (Y/N)?  `0[`5Y`0]:
  441. `<Space>
  442. `<GetAns>=[(TempStr0),YN,(TheUser)]
  443. `<PrintVal>=[(TempStr0),(TheUser)]
  444. `<NewLine>
  445. `<RetOn>
  446. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  447. `<ifless>=[(FLifeGold),(TheUser),800000000,@#NSF]
  448. `<AddVal>=[(FLifeGold),(TheUser),-800000000]
  449. `<AddVal>=[(LStrength),(TheUser),800]
  450. `<SetVal>=[(LordWeapon),(TheUser),Trisnic Trident]
  451. `<SetVal>=[(LWeaponNum),(TheUser),13]
  452. `0Done!
  453. `<More>
  454. @#EmporerEmbalmer
  455. `<if>=[(Level),(TheUser),1,@#LevelLock]
  456. `<ifless>=[(Level),(TheUser),8,@#LevelLock]
  457. `<RetOff>
  458. `2  You want Emporer's Embalmer (Y/N)?  `0[`5Y`0]:
  459. `<Space>
  460. `<GetAns>=[(TempStr0),YN,(TheUser)]
  461. `<PrintVal>=[(TempStr0),(TheUser)]
  462. `<NewLine>
  463. `<RetOn>
  464. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  465. `<ifless>=[(FLifeGold),(TheUser),2000000000,@#NSF]
  466. `<AddVal>=[(FLifeGold),(TheUser),-2000000000]
  467. `<AddVal>=[(LStrength),(TheUser),1200]
  468. `<SetVal>=[(LordWeapon),(TheUser),Emporer Embalmer]
  469. `<SetVal>=[(LWeaponNum),(TheUser),14]
  470. `0Done!
  471. `<More>
  472. @#MandragoranBlade
  473. `<if>=[(Level),(TheUser),1,@#LevelLock]
  474. `<ifless>=[(Level),(TheUser),9,@#LevelLock]
  475. `<RetOff>
  476. `2  Mandragoran's Blade...really (Y/N)?  `0[`5Y`0]:
  477. `<Space>
  478. `<GetAns>=[(TempStr0),YN,(TheUser)]
  479. `<PrintVal>=[(TempStr0),(TheUser)]
  480. `<NewLine>
  481. `<RetOn>
  482. `<if>=[(TempStr0),(TheUser),N,@#Abort]
  483. `<ifless>=[(FLifeGold),(TheUser),8000000000,@#NSF]
  484. `<AddVal>=[(FLifeGold),(TheUser),-8000000000]
  485. `<AddVal>=[(LStrength),(TheUser),1800]
  486. `<SetVal>=[(LordWeapon),(TheUser),Blade of Power]
  487. `<SetVal>=[(LWeaponNum),(TheUser),15]
  488. `0Done!
  489. `<More>
  490. @#WeaponsOptionsL
  491. `<NewLine>
  492. `<Clear>
  493. `<Newline>
  494. `. `% The Life of the Red Dragon - `2Weapon List
  495. `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  496.   `0Weapon                            Price
  497.   `21. Scimitar...............................`54000
  498.  `2 2. Privateer's Blade....................`520,000
  499. `2  3. Qas Staff............................`560,000
  500. `2  4. Epee................................`5200,000
  501. `2  5. Magical Wand........................`5600,000
  502. `2  6. Crest Buster......................`52,000,000
  503. `2  7. Golden Knife......................`53,000,000
  504. `2  8. Falcon's Revenge..................`54,000,000
  505. `2  9. Turgon's Weakness.................`58,000,000
  506. `2 10. Acid Sword.......................`520,000,000
  507. `2 11. Wolf's Whip......................`580,000,000
  508. `2 12. Crismon's Crossbow..............`5200,000,000
  509. `2 13. Trisnic's Trident...............`5800,000,000
  510. `2 14. Emporer's Embalmer............`52,000,000,000
  511. `2 15  Mandragoran's Blade...........`58,000,000,000
  512.  
  513. `<NewLine>
  514. `<More>
  515. @#WeaponsOptionsR
  516. `<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
  517. @#WeaponsOptions|
  518. `<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
  519. @#UserNotFound
  520. `<NewLine>
  521. `<RetOn>
  522. `7User not found...
  523. `2The user may not have been in lord life yet...
  524. `2Or you may not have entered the name right...
  525. `2Type less of the name if you are unsure...
  526. `<More>
  527. @#UserNoInfo
  528. `<NewLine>
  529. `2Sorry...but that user has not entered their info yet.
  530. `<NewLine>
  531. `<More>
  532. @#Abort
  533. `<NewLine>
  534. `4Aborted!
  535. `<NewLine>
  536. `<More>
  537. @#NoFairy
  538. `<NewLine>
  539. `2  Sorry pal...but you do not have a fairy!
  540. `<NewLine>
  541. `<More>
  542. @#NSF
  543. `2
  544. `2Sorry...but you do not have enough money...
  545. `3Go to the bank and get some money...or `4get lost!
  546. `<More>
  547. @#YouNoHave
  548. `2
  549. `2WHAT!?! You do not have one!!!
  550. `<More>
  551. @#LevelLock
  552. `2
  553. `2  Sorry...but you cannot buy that item here on your
  554. `2Level...it could make a mockery of your lord game...ruining all
  555. `2the fun...you wouldn't want that would you...don't worry after
  556. `2you reach Level nine all's fair in lord and life! :)
  557. `<More>
  558. @#ENDOFFILE
  559.